unit OutCarInfoFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InCarInfoFormUnit, JvComponentBase, JvDockControlForm, DBCtrls,
  ExtCtrls, Grids, DBGrids, StdCtrls, MPlayer, JvAVICapture;

type
  TOutCarInfoForm = class(TInCarInfoForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OutCarInfoForm: TOutCarInfoForm;

implementation

{$R *.dfm}

procedure TOutCarInfoForm.FormCreate(Sender: TObject);
var i: Integer;
begin
//  inherited;
//  MediaPlayer1.FileName:='c:\ycar.mpg';
//  MediaPlayer1.Open;
//  MediaPlayer1.Play;
  for i := 0 to JvAVICapture1.Drivers.Count - 1 do
  begin
    ComboBox1.Items.Add(JvAVICapture1.Drivers[i]);
  end;
end;

end.
